home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1997 January: Mac OS SDK / Dev.CD Jan 97 SDK1.toast / Development Kits (Disc 1) / Interfaces&Libraries / Interfaces / AIncludes / Collections.a < prev    next >
Encoding:
Text File  |  1996-01-24  |  14.3 KB  |  643 lines  |  [TEXT/MPS ]
  1. ;
  2. ;    File:        Collections.a
  3. ;
  4. ;    Contains:    Collection Manager Interfaces.
  5. ;
  6. ;    Version:    Technology:    Quickdraw GX 1.0
  7. ;                Package:    Universal Interfaces 2.2 in “MPW” on ETO #20
  8. ;
  9. ;    Copyright:    © 1984-1995 by Apple Computer, Inc.
  10. ;                All rights reserved.
  11. ;
  12. ;    Bugs?:        If you find a problem with this file, use the Apple Bug Reporter
  13. ;                stack.  Include the file and version information (from above)
  14. ;                in the problem description and send to:
  15. ;                    Internet:    apple.bugs@applelink.apple.com
  16. ;                    AppleLink:    APPLE.BUGS
  17. ;
  18. ;
  19.  
  20.     IF &TYPE('__COLLECTIONS__') = 'UNDEFINED' THEN
  21. __COLLECTIONS__ SET 1
  22.  
  23.  
  24.     IF &TYPE('__TYPES__') = 'UNDEFINED' THEN
  25.     include 'Types.a'
  26.     ENDIF
  27. ;        include 'ConditionalMacros.a'                                ;
  28.  
  29.     IF &TYPE('__MIXEDMODE__') = 'UNDEFINED' THEN
  30.     include 'MixedMode.a'
  31.     ENDIF
  32.  
  33. gestaltCollectionMgrVersion        EQU        'cltn'
  34.  
  35. ; Collection Manager Error Result Codes... 
  36. collectionItemLockedErr            EQU        -5750
  37. collectionItemNotFoundErr        EQU        -5751
  38. collectionIndexRangeErr            EQU        -5752
  39. collectionVersionErr            EQU        -5753
  40.  
  41. ; Convenience constants for functions which optionally return values... 
  42. dontWantTag                        EQU        0
  43. dontWantId                        EQU        0
  44. dontWantSize                    EQU        0
  45. dontWantAttributes                EQU        0
  46. dontWantIndex                    EQU        0
  47. dontWantData                    EQU        0
  48.  
  49. ; attributes bits 
  50. noCollectionAttributes            EQU        $00000000            ; no attributes bits set 
  51. allCollectionAttributes            EQU        $FFFFFFFF            ; all attributes bits set 
  52. userCollectionAttributes        EQU        $0000FFFF            ; user attributes bits 
  53. defaultCollectionAttributes        EQU        $40000000            ; default attributes - unlocked, persistent 
  54.  
  55. ; 
  56. ;    Attribute bits 0 through 15 (entire low word) are reserved for use by the application.
  57. ;    Attribute bits 16 through 31 (entire high word) are reserved for use by the Collection Manager.
  58. ;    Only bits 31 (collectionLockBit) and 30 (collectionPersistenceBit) currently have meaning.
  59. ;
  60. collectionUser0Bit                EQU        0
  61. collectionUser1Bit                EQU        1
  62. collectionUser2Bit                EQU        2
  63. collectionUser3Bit                EQU        3
  64. collectionUser4Bit                EQU        4
  65. collectionUser5Bit                EQU        5
  66. collectionUser6Bit                EQU        6
  67. collectionUser7Bit                EQU        7
  68. collectionUser8Bit                EQU        8
  69. collectionUser9Bit                EQU        9
  70. collectionUser10Bit                EQU        10
  71. collectionUser11Bit                EQU        11
  72. collectionUser12Bit                EQU        12
  73. collectionUser13Bit                EQU        13
  74. collectionUser14Bit                EQU        14
  75. collectionUser15Bit                EQU        15
  76. collectionReserved0Bit            EQU        16
  77. collectionReserved1Bit            EQU        17
  78. collectionReserved2Bit            EQU        18
  79. collectionReserved3Bit            EQU        19
  80. collectionReserved4Bit            EQU        20
  81. collectionReserved5Bit            EQU        21
  82. collectionReserved6Bit            EQU        22
  83. collectionReserved7Bit            EQU        23
  84. collectionReserved8Bit            EQU        24
  85. collectionReserved9Bit            EQU        25
  86. collectionReserved10Bit            EQU        26
  87. collectionReserved11Bit            EQU        27
  88. collectionReserved12Bit            EQU        28
  89. collectionReserved13Bit            EQU        29
  90. collectionPersistenceBit        EQU        30
  91. collectionLockBit                EQU        31
  92.  
  93. ; attribute masks 
  94. collectionUser0Mask                EQU        1 << collectionUser0Bit
  95. collectionUser1Mask                EQU        1 << collectionUser1Bit
  96. collectionUser2Mask                EQU        1 << collectionUser2Bit
  97. collectionUser3Mask                EQU        1 << collectionUser3Bit
  98. collectionUser4Mask                EQU        1 << collectionUser4Bit
  99. collectionUser5Mask                EQU        1 << collectionUser5Bit
  100. collectionUser6Mask                EQU        1 << collectionUser6Bit
  101. collectionUser7Mask                EQU        1 << collectionUser7Bit
  102. collectionUser8Mask                EQU        1 << collectionUser8Bit
  103. collectionUser9Mask                EQU        1 << collectionUser9Bit
  104. collectionUser10Mask            EQU        1 << collectionUser10Bit
  105. collectionUser11Mask            EQU        1 << collectionUser11Bit
  106. collectionUser12Mask            EQU        1 << collectionUser12Bit
  107. collectionUser13Mask            EQU        1 << collectionUser13Bit
  108. collectionUser14Mask            EQU        1 << collectionUser14Bit
  109. collectionUser15Mask            EQU        1 << collectionUser15Bit
  110. collectionReserved0Mask            EQU        1 << collectionReserved0Bit
  111. collectionReserved1Mask            EQU        1 << collectionReserved1Bit
  112. collectionReserved2Mask            EQU        1 << collectionReserved2Bit
  113. collectionReserved3Mask            EQU        1 << collectionReserved3Bit
  114. collectionReserved4Mask            EQU        1 << collectionReserved4Bit
  115. collectionReserved5Mask            EQU        1 << collectionReserved5Bit
  116. collectionReserved6Mask            EQU        1 << collectionReserved6Bit
  117. collectionReserved7Mask            EQU        1 << collectionReserved7Bit
  118. collectionReserved8Mask            EQU        1 << collectionReserved8Bit
  119. collectionReserved9Mask            EQU        1 << collectionReserved9Bit
  120. collectionReserved10Mask        EQU        1 << collectionReserved10Bit
  121. collectionReserved11Mask        EQU        1 << collectionReserved11Bit
  122. collectionReserved12Mask        EQU        1 << collectionReserved12Bit
  123. collectionReserved13Mask        EQU        1 << collectionReserved13Bit
  124. collectionPersistenceMask        EQU        1 << collectionPersistenceBit
  125. collectionLockMask                EQU        1 << collectionLockBit
  126.  
  127. ;*********
  128. ; Types   
  129. ;*********
  130. ; abstract data type for a collection 
  131. ; typedef FourCharCode         CollectionTag
  132. ;
  133. ; pascal Collection NewCollection(void)
  134. ;
  135.     IF ¬ GENERATINGCFM THEN
  136.         Macro
  137.         _NewCollection
  138.             moveq    #0,d0
  139.             dc.w     $ABF6
  140.         EndM
  141.     ELSE
  142.         IMPORT_CFM_FUNCTION    NewCollection
  143.     ENDIF
  144.  
  145. ;
  146. ; pascal void DisposeCollection(Collection c)
  147. ;
  148.     IF ¬ GENERATINGCFM THEN
  149.         Macro
  150.         _DisposeCollection
  151.             moveq    #1,d0
  152.             dc.w     $ABF6
  153.         EndM
  154.     ELSE
  155.         IMPORT_CFM_FUNCTION    DisposeCollection
  156.     ENDIF
  157.  
  158. ;
  159. ; pascal Collection CloneCollection(Collection c)
  160. ;
  161.     IF ¬ GENERATINGCFM THEN
  162.         Macro
  163.         _CloneCollection
  164.             moveq    #2,d0
  165.             dc.w     $ABF6
  166.         EndM
  167.     ELSE
  168.         IMPORT_CFM_FUNCTION    CloneCollection
  169.     ENDIF
  170.  
  171. ;
  172. ; pascal long CountCollectionOwners(Collection c)
  173. ;
  174.     IF ¬ GENERATINGCFM THEN
  175.         Macro
  176.         _CountCollectionOwners
  177.             moveq    #3,d0
  178.             dc.w     $ABF6
  179.         EndM
  180.     ELSE
  181.         IMPORT_CFM_FUNCTION    CountCollectionOwners
  182.     ENDIF
  183.  
  184. ;
  185. ; pascal Collection CopyCollection(Collection srcCollection, Collection dstCollection)
  186. ;
  187.     IF ¬ GENERATINGCFM THEN
  188.         Macro
  189.         _CopyCollection
  190.             moveq    #4,d0
  191.             dc.w     $ABF6
  192.         EndM
  193.     ELSE
  194.         IMPORT_CFM_FUNCTION    CopyCollection
  195.     ENDIF
  196.  
  197. ;
  198. ; pascal long GetCollectionDefaultAttributes(Collection c)
  199. ;
  200.     IF ¬ GENERATINGCFM THEN
  201.         Macro
  202.         _GetCollectionDefaultAttributes
  203.             moveq    #5,d0
  204.             dc.w     $ABF6
  205.         EndM
  206.     ELSE
  207.         IMPORT_CFM_FUNCTION    GetCollectionDefaultAttributes
  208.     ENDIF
  209.  
  210. ;
  211. ; pascal void SetCollectionDefaultAttributes(Collection c, long whichAttributes, long newAttributes)
  212. ;
  213.     IF ¬ GENERATINGCFM THEN
  214.         Macro
  215.         _SetCollectionDefaultAttributes
  216.             moveq    #6,d0
  217.             dc.w     $ABF6
  218.         EndM
  219.     ELSE
  220.         IMPORT_CFM_FUNCTION    SetCollectionDefaultAttributes
  221.     ENDIF
  222.  
  223. ;
  224. ; pascal long CountCollectionItems(Collection c)
  225. ;
  226.     IF ¬ GENERATINGCFM THEN
  227.         Macro
  228.         _CountCollectionItems
  229.             moveq    #7,d0
  230.             dc.w     $ABF6
  231.         EndM
  232.     ELSE
  233.         IMPORT_CFM_FUNCTION    CountCollectionItems
  234.     ENDIF
  235.  
  236. ;
  237. ; pascal OSErr AddCollectionItem(Collection c, CollectionTag tag, long id, long itemSize, void *itemData)
  238. ;
  239.     IF ¬ GENERATINGCFM THEN
  240.         Macro
  241.         _AddCollectionItem
  242.             moveq    #8,d0
  243.             dc.w     $ABF6
  244.         EndM
  245.     ELSE
  246.         IMPORT_CFM_FUNCTION    AddCollectionItem
  247.     ENDIF
  248.  
  249. ;
  250. ; pascal OSErr GetCollectionItem(Collection c, CollectionTag tag, long id, long *itemSize, void *itemData)
  251. ;
  252.     IF ¬ GENERATINGCFM THEN
  253.         Macro
  254.         _GetCollectionItem
  255.             moveq    #9,d0
  256.             dc.w     $ABF6
  257.         EndM
  258.     ELSE
  259.         IMPORT_CFM_FUNCTION    GetCollectionItem
  260.     ENDIF
  261.  
  262. ;
  263. ; pascal OSErr RemoveCollectionItem(Collection c, CollectionTag tag, long id)
  264. ;
  265.     IF ¬ GENERATINGCFM THEN
  266.         Macro
  267.         _RemoveCollectionItem
  268.             moveq    #10,d0
  269.             dc.w     $ABF6
  270.         EndM
  271.     ELSE
  272.         IMPORT_CFM_FUNCTION    RemoveCollectionItem
  273.     ENDIF
  274.  
  275. ;
  276. ; pascal OSErr SetCollectionItemInfo(Collection c, CollectionTag tag, long id, long whichAttributes, long newAttributes)
  277. ;
  278.     IF ¬ GENERATINGCFM THEN
  279.         Macro
  280.         _SetCollectionItemInfo
  281.             moveq    #11,d0
  282.             dc.w     $ABF6
  283.         EndM
  284.     ELSE
  285.         IMPORT_CFM_FUNCTION    SetCollectionItemInfo
  286.     ENDIF
  287.  
  288. ;
  289. ; pascal OSErr GetCollectionItemInfo(Collection c, CollectionTag tag, long id, long *index, long *itemSize, long *attributes)
  290. ;
  291.     IF ¬ GENERATINGCFM THEN
  292.         Macro
  293.         _GetCollectionItemInfo
  294.             moveq    #12,d0
  295.             dc.w     $ABF6
  296.         EndM
  297.     ELSE
  298.         IMPORT_CFM_FUNCTION    GetCollectionItemInfo
  299.     ENDIF
  300.  
  301. ;
  302. ; pascal OSErr ReplaceIndexedCollectionItem(Collection c, long index, long itemSize, void *itemData)
  303. ;
  304.     IF ¬ GENERATINGCFM THEN
  305.         Macro
  306.         _ReplaceIndexedCollectionItem
  307.             moveq    #13,d0
  308.             dc.w     $ABF6
  309.         EndM
  310.     ELSE
  311.         IMPORT_CFM_FUNCTION    ReplaceIndexedCollectionItem
  312.     ENDIF
  313.  
  314. ;
  315. ; pascal OSErr GetIndexedCollectionItem(Collection c, long index, long *itemSize, void *itemData)
  316. ;
  317.     IF ¬ GENERATINGCFM THEN
  318.         Macro
  319.         _GetIndexedCollectionItem
  320.             moveq    #14,d0
  321.             dc.w     $ABF6
  322.         EndM
  323.     ELSE
  324.         IMPORT_CFM_FUNCTION    GetIndexedCollectionItem
  325.     ENDIF
  326.  
  327. ;
  328. ; pascal OSErr RemoveIndexedCollectionItem(Collection c, long index)
  329. ;
  330.     IF ¬ GENERATINGCFM THEN
  331.         Macro
  332.         _RemoveIndexedCollectionItem
  333.             moveq    #15,d0
  334.             dc.w     $ABF6
  335.         EndM
  336.     ELSE
  337.         IMPORT_CFM_FUNCTION    RemoveIndexedCollectionItem
  338.     ENDIF
  339.  
  340. ;
  341. ; pascal OSErr SetIndexedCollectionItemInfo(Collection c, long index, long whichAttributes, long newAttributes)
  342. ;
  343.     IF ¬ GENERATINGCFM THEN
  344.         Macro
  345.         _SetIndexedCollectionItemInfo
  346.             moveq    #16,d0
  347.             dc.w     $ABF6
  348.         EndM
  349.     ELSE
  350.         IMPORT_CFM_FUNCTION    SetIndexedCollectionItemInfo
  351.     ENDIF
  352.  
  353. ;
  354. ; pascal OSErr GetIndexedCollectionItemInfo(Collection c, long index, CollectionTag *tag, long *id, long *itemSize, long *attributes)
  355. ;
  356.     IF ¬ GENERATINGCFM THEN
  357.         Macro
  358.         _GetIndexedCollectionItemInfo
  359.             moveq    #17,d0
  360.             dc.w     $ABF6
  361.         EndM
  362.     ELSE
  363.         IMPORT_CFM_FUNCTION    GetIndexedCollectionItemInfo
  364.     ENDIF
  365.  
  366. ;
  367. ; pascal Boolean CollectionTagExists(Collection c, CollectionTag tag)
  368. ;
  369.     IF ¬ GENERATINGCFM THEN
  370.         Macro
  371.         _CollectionTagExists
  372.             moveq    #18,d0
  373.             dc.w     $ABF6
  374.         EndM
  375.     ELSE
  376.         IMPORT_CFM_FUNCTION    CollectionTagExists
  377.     ENDIF
  378.  
  379. ;
  380. ; pascal long CountCollectionTags(Collection c)
  381. ;
  382.     IF ¬ GENERATINGCFM THEN
  383.         Macro
  384.         _CountCollectionTags
  385.             moveq    #19,d0
  386.             dc.w     $ABF6
  387.         EndM
  388.     ELSE
  389.         IMPORT_CFM_FUNCTION    CountCollectionTags
  390.     ENDIF
  391.  
  392. ;
  393. ; pascal OSErr GetIndexedCollectionTag(Collection c, long tagIndex, CollectionTag *tag)
  394. ;
  395.     IF ¬ GENERATINGCFM THEN
  396.         Macro
  397.         _GetIndexedCollectionTag
  398.             moveq    #20,d0
  399.             dc.w     $ABF6
  400.         EndM
  401.     ELSE
  402.         IMPORT_CFM_FUNCTION    GetIndexedCollectionTag
  403.     ENDIF
  404.  
  405. ;
  406. ; pascal long CountTaggedCollectionItems(Collection c, CollectionTag tag)
  407. ;
  408.     IF ¬ GENERATINGCFM THEN
  409.         Macro
  410.         _CountTaggedCollectionItems
  411.             moveq    #21,d0
  412.             dc.w     $ABF6
  413.         EndM
  414.     ELSE
  415.         IMPORT_CFM_FUNCTION    CountTaggedCollectionItems
  416.     ENDIF
  417.  
  418. ;
  419. ; pascal OSErr GetTaggedCollectionItem(Collection c, CollectionTag tag, long whichItem, long *itemSize, void *itemData)
  420. ;
  421.     IF ¬ GENERATINGCFM THEN
  422.         Macro
  423.         _GetTaggedCollectionItem
  424.             moveq    #22,d0
  425.             dc.w     $ABF6
  426.         EndM
  427.     ELSE
  428.         IMPORT_CFM_FUNCTION    GetTaggedCollectionItem
  429.     ENDIF
  430.  
  431. ;
  432. ; pascal OSErr GetTaggedCollectionItemInfo(Collection c, CollectionTag tag, long whichItem, long *id, long *index, long *itemSize, long *attributes)
  433. ;
  434.     IF ¬ GENERATINGCFM THEN
  435.         Macro
  436.         _GetTaggedCollectionItemInfo
  437.             moveq    #23,d0
  438.             dc.w     $ABF6
  439.         EndM
  440.     ELSE
  441.         IMPORT_CFM_FUNCTION    GetTaggedCollectionItemInfo
  442.     ENDIF
  443.  
  444. ;
  445. ; pascal void PurgeCollection(Collection c, long whichAttributes, long matchingAttributes)
  446. ;
  447.     IF ¬ GENERATINGCFM THEN
  448.         Macro
  449.         _PurgeCollection
  450.             moveq    #24,d0
  451.             dc.w     $ABF6
  452.         EndM
  453.     ELSE
  454.         IMPORT_CFM_FUNCTION    PurgeCollection
  455.     ENDIF
  456.  
  457. ;
  458. ; pascal void PurgeCollectionTag(Collection c, CollectionTag tag)
  459. ;
  460.     IF ¬ GENERATINGCFM THEN
  461.         Macro
  462.         _PurgeCollectionTag
  463.             moveq    #25,d0
  464.             dc.w     $ABF6
  465.         EndM
  466.     ELSE
  467.         IMPORT_CFM_FUNCTION    PurgeCollectionTag
  468.     ENDIF
  469.  
  470. ;
  471. ; pascal void EmptyCollection(Collection c)
  472. ;
  473.     IF ¬ GENERATINGCFM THEN
  474.         Macro
  475.         _EmptyCollection
  476.             moveq    #26,d0
  477.             dc.w     $ABF6
  478.         EndM
  479.     ELSE
  480.         IMPORT_CFM_FUNCTION    EmptyCollection
  481.     ENDIF
  482.  
  483. ;
  484. ; pascal OSErr FlattenCollection(Collection c, CollectionFlattenUPP flattenProc, void *refCon)
  485. ;
  486.     IF ¬ GENERATINGCFM THEN
  487.         Macro
  488.         _FlattenCollection
  489.             moveq    #27,d0
  490.             dc.w     $ABF6
  491.         EndM
  492.     ELSE
  493.         IMPORT_CFM_FUNCTION    FlattenCollection
  494.     ENDIF
  495.  
  496. ;
  497. ; pascal OSErr FlattenPartialCollection(Collection c, CollectionFlattenUPP flattenProc, void *refCon, long whichAttributes, long matchingAttributes)
  498. ;
  499.     IF ¬ GENERATINGCFM THEN
  500.         Macro
  501.         _FlattenPartialCollection
  502.             moveq    #28,d0
  503.             dc.w     $ABF6
  504.         EndM
  505.     ELSE
  506.         IMPORT_CFM_FUNCTION    FlattenPartialCollection
  507.     ENDIF
  508.  
  509. ;
  510. ; pascal OSErr UnflattenCollection(Collection c, CollectionFlattenUPP flattenProc, void *refCon)
  511. ;
  512.     IF ¬ GENERATINGCFM THEN
  513.         Macro
  514.         _UnflattenCollection
  515.             moveq    #29,d0
  516.             dc.w     $ABF6
  517.         EndM
  518.     ELSE
  519.         IMPORT_CFM_FUNCTION    UnflattenCollection
  520.     ENDIF
  521.  
  522. ;
  523. ; pascal CollectionExceptionUPP GetCollectionExceptionProc(Collection c)
  524. ;
  525.     IF ¬ GENERATINGCFM THEN
  526.         Macro
  527.         _GetCollectionExceptionProc
  528.             moveq    #30,d0
  529.             dc.w     $ABF6
  530.         EndM
  531.     ELSE
  532.         IMPORT_CFM_FUNCTION    GetCollectionExceptionProc
  533.     ENDIF
  534.  
  535. ;
  536. ; pascal void SetCollectionExceptionProc(Collection c, CollectionExceptionUPP exceptionProc)
  537. ;
  538.     IF ¬ GENERATINGCFM THEN
  539.         Macro
  540.         _SetCollectionExceptionProc
  541.             moveq    #31,d0
  542.             dc.w     $ABF6
  543.         EndM
  544.     ELSE
  545.         IMPORT_CFM_FUNCTION    SetCollectionExceptionProc
  546.     ENDIF
  547.  
  548. ;***************************************************************************************
  549. ; Utility Routines for handle-based access...                                                          
  550. ;***************************************************************************************
  551. ;
  552. ; pascal Collection GetNewCollection(short collectionID)
  553. ;
  554.     IF ¬ GENERATINGCFM THEN
  555.         Macro
  556.         _GetNewCollection
  557.             moveq    #32,d0
  558.             dc.w     $ABF6
  559.         EndM
  560.     ELSE
  561.         IMPORT_CFM_FUNCTION    GetNewCollection
  562.     ENDIF
  563.  
  564. ;
  565. ; pascal OSErr AddCollectionItemHdl(Collection aCollection, CollectionTag tag, long id, Handle itemData)
  566. ;
  567.     IF ¬ GENERATINGCFM THEN
  568.         Macro
  569.         _AddCollectionItemHdl
  570.             moveq    #33,d0
  571.             dc.w     $ABF6
  572.         EndM
  573.     ELSE
  574.         IMPORT_CFM_FUNCTION    AddCollectionItemHdl
  575.     ENDIF
  576.  
  577. ;
  578. ; pascal OSErr GetCollectionItemHdl(Collection aCollection, CollectionTag tag, long id, Handle itemData)
  579. ;
  580.     IF ¬ GENERATINGCFM THEN
  581.         Macro
  582.         _GetCollectionItemHdl
  583.             moveq    #34,d0
  584.             dc.w     $ABF6
  585.         EndM
  586.     ELSE
  587.         IMPORT_CFM_FUNCTION    GetCollectionItemHdl
  588.     ENDIF
  589.  
  590. ;
  591. ; pascal OSErr ReplaceIndexedCollectionItemHdl(Collection aCollection, long index, Handle itemData)
  592. ;
  593.     IF ¬ GENERATINGCFM THEN
  594.         Macro
  595.         _ReplaceIndexedCollectionItemHdl
  596.             moveq    #35,d0
  597.             dc.w     $ABF6
  598.         EndM
  599.     ELSE
  600.         IMPORT_CFM_FUNCTION    ReplaceIndexedCollectionItemHdl
  601.     ENDIF
  602.  
  603. ;
  604. ; pascal OSErr GetIndexedCollectionItemHdl(Collection aCollection, long index, Handle itemData)
  605. ;
  606.     IF ¬ GENERATINGCFM THEN
  607.         Macro
  608.         _GetIndexedCollectionItemHdl
  609.             moveq    #36,d0
  610.             dc.w     $ABF6
  611.         EndM
  612.     ELSE
  613.         IMPORT_CFM_FUNCTION    GetIndexedCollectionItemHdl
  614.     ENDIF
  615.  
  616. ;
  617. ; pascal OSErr FlattenCollectionToHdl(Collection aCollection, Handle flattened)
  618. ;
  619.     IF ¬ GENERATINGCFM THEN
  620.         Macro
  621.         _FlattenCollectionToHdl
  622.             moveq    #37,d0
  623.             dc.w     $ABF6
  624.         EndM
  625.     ELSE
  626.         IMPORT_CFM_FUNCTION    FlattenCollectionToHdl
  627.     ENDIF
  628.  
  629. ;
  630. ; pascal OSErr UnflattenCollectionFromHdl(Collection aCollection, Handle flattened)
  631. ;
  632.     IF ¬ GENERATINGCFM THEN
  633.         Macro
  634.         _UnflattenCollectionFromHdl
  635.             moveq    #38,d0
  636.             dc.w     $ABF6
  637.         EndM
  638.     ELSE
  639.         IMPORT_CFM_FUNCTION    UnflattenCollectionFromHdl
  640.     ENDIF
  641.  
  642.     ENDIF ; __COLLECTIONS__
  643.